home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 78
/
078.d81
/
type boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
780b
|
22 lines
10 print"[147]":gosub70
20 poke 53281,0:poke 53280,0:poke2043,8
30 print"[144]":print""
40 print "load";chr$(34);f$;chr$(34)",8"
50 print"run"
60 poke631,13:poke632,13:poke198,2:end
70 poke53280,0:poke53281,0:iffthenreturn
80 poke214,10:print"[145]";
90 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
100 fori=217to242:pokei,peek(i)or128:next
110 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 fori=1to7:printtab(4)"[155] [151][223]":next
130 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
140 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
150 poke214,14:print"[145][155]";
160 fori=1to5:reada$:gosub170:next:goto180
170 printspc(20-len(a$)/2)""a$:a$="":return
180 f$="typeracer":poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
190 data"[212] [217][160][208][160][197] [160] [210] [193] [195][160][201][160][206] [199]","by [211]cott [197]lder"
200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #78","[211]ubscriptions 1-800-831-2694"
210 data"[195]opyright ([195]) 1990 [211]oftdisk"